home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed14.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  812b  |  30 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 15 PRINT"[147][156]   ** TPUG EDUCATION DISK   ED-14  **"
  3. 17 PRINT"      GRADE 4 ARITHMETIC PROBLEMS"
  4. 20 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 25 PRINT"        PART 1     METRIC UNITS"
  6. 30 DIMA$(15)
  7. 35 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  8. 40 INPUT"CHOOSE(1-15):";A$
  9. 45 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO35
  10. 50 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  11. 55 FORT=1TO1500:NEXT:PRINT"[147]LOADING........ ";A$(A)
  12. 60 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  13. 75 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  14. 59999 :
  15. 60001 DATA "LESSON 1-4A"
  16. 60002 DATA "LESSON 2"
  17. 60003 DATA "LESSON 3"
  18. 60004 DATA "LESSON 4"
  19. 60005 DATA "LESSON 5"
  20. 60006 DATA "LESSON 6"
  21. 60007 DATA "LESSON 7"
  22. 60008 DATA "LESSON 8"
  23. 60009 DATA "LESSON 9"
  24. 60010 DATA "LESSON 10"
  25. 60011 DATA "LESSON 11"
  26. 60012 DATA "LESSON 12"
  27. 60013 DATA "LESSON 13"
  28. 60014 DATA "LESSON 14"
  29. 60015 DATA "MORE LESSONS"
  30.